home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Add-Ons / 4D / ComboBox 1.1.1 / src / ComboBoxCmds.c < prev    next >
Text File  |  1996-02-23  |  18KB  |  647 lines
  1. //---------------------------------------------------------------------------------------
  2. //
  3. //    ComboBoxCmds.c -- Source for ComboBox external area's supporting commands
  4. //
  5. //    Copyright ©1995-1996, Pensacola Christian College
  6. //
  7. //    ======================================================================
  8. //    Change History
  9. //    ======================================================================
  10. //
  11. //    1.0            08/  /95        Steve Dwire
  12. //                                            Initial release
  13. //
  14. //---------------------------------------------------------------------------------------
  15.  
  16. #include <Ext4D.h>
  17. #include "ComboBoxMain.h" // Include your header here.
  18.  
  19.  
  20. //---------------------------------------------------------------------------------
  21. //
  22. // FUNCTION: CB_SetDefTxtFnt
  23. //
  24. //---------------------------------------------------------------------------------
  25.  
  26. void CB_SetDefTxtFnt(PackHnd PackDataHnd, SWORD FontNum, SWORD FontSize, SWORD FontStyle)
  27. {
  28.     (*PackDataHnd)->DefTextFont = FontNum;
  29.     (*PackDataHnd)->DefTextSize = FontSize;
  30.     (*PackDataHnd)->DefTextStyle = FontStyle;
  31. }
  32.  
  33.  
  34. //---------------------------------------------------------------------------------
  35. //
  36. // FUNCTION: CB_SetDefTxtCol
  37. //
  38. //---------------------------------------------------------------------------------
  39.  
  40. void CB_SetDefTxtCol(PackHnd PackDataHnd, SWORD ForeColor, SWORD BackColor)
  41. {
  42.     (*PackDataHnd)->DefTextFGColor = ForeColor;
  43.     (*PackDataHnd)->DefTextBGColor = BackColor;
  44. }
  45.  
  46.  
  47. //---------------------------------------------------------------------------------
  48. //
  49. // FUNCTION: CB_SetDefLstFnt
  50. //
  51. //---------------------------------------------------------------------------------
  52.  
  53. void CB_SetDefLstFnt(PackHnd PackDataHnd, SWORD FontNum, SWORD FontSize, SWORD FontStyle)
  54. {
  55.     (*PackDataHnd)->DefListFont = FontNum;
  56.     (*PackDataHnd)->DefListSize = FontSize;
  57.     (*PackDataHnd)->DefListStyle = FontStyle;
  58. }
  59.  
  60.  
  61. //---------------------------------------------------------------------------------
  62. //
  63. // FUNCTION: CB_SetDefLstCol
  64. //
  65. //---------------------------------------------------------------------------------
  66.  
  67. void CB_SetDefLstCol(PackHnd PackDataHnd, SWORD ForeColor, SWORD BackColor)
  68. {
  69.     (*PackDataHnd)->DefListFGColor = ForeColor;
  70.     (*PackDataHnd)->DefListBGColor = BackColor;
  71. }
  72.  
  73.  
  74. //---------------------------------------------------------------------------------
  75. //
  76. // FUNCTION: CB_SetDefLstRws
  77. //
  78. //---------------------------------------------------------------------------------
  79.  
  80. void CB_SetDefLstRws(PackHnd PackDataHnd, SWORD Rows)
  81. {
  82.     (*PackDataHnd)->DefListRows = Rows;
  83. }
  84.  
  85.  
  86. //---------------------------------------------------------------------------------
  87. //
  88. // FUNCTION: CB_SetDefPopPic
  89. //
  90. //---------------------------------------------------------------------------------
  91.  
  92. void CB_SetDefPopPic(PackHnd PackDataHnd, SWORD CUp, SWORD CDown, SWORD CDis, SWORD MUp, SWORD MDown, SWORD MDis)
  93. {
  94.     (*PackDataHnd)->DefCPICTResUp = CUp;
  95.     (*PackDataHnd)->DefCPICTResDn = CDown;
  96.     (*PackDataHnd)->DefCPICTResDis = CDis;
  97.     (*PackDataHnd)->DefMPICTResUp = MUp;
  98.     (*PackDataHnd)->DefMPICTResDn = MDown;
  99.     (*PackDataHnd)->DefMPICTResDis = MDis;
  100. }
  101.  
  102.  
  103. //---------------------------------------------------------------------------------
  104. //
  105. // FUNCTION: CB_SetDefGap
  106. //
  107. //---------------------------------------------------------------------------------
  108.  
  109. void CB_SetDefGap(PackHnd PackDataHnd, SWORD Pict, SWORD Top, SWORD Left, SWORD Right)
  110. {
  111.     (*PackDataHnd)->DefPixGap = Pict;
  112.     (*PackDataHnd)->DefTopGap = Top;
  113.     (*PackDataHnd)->DefLeftGap = Left;
  114.     (*PackDataHnd)->DefRightGap = Right;
  115. }
  116.  
  117.  
  118. //---------------------------------------------------------------------------------
  119. //
  120. // FUNCTION: CB_SetDefLead
  121. //
  122. //---------------------------------------------------------------------------------
  123.  
  124. void CB_SetDefLead(PackHnd PackDataHnd, SWORD Lead)
  125. {
  126.     (*PackDataHnd)->DefPixLead = Lead;
  127. }
  128.  
  129.  
  130. //---------------------------------------------------------------------------------
  131. //
  132. // FUNCTION: CB_SetDefFlags
  133. //
  134. //---------------------------------------------------------------------------------
  135.  
  136. void CB_SetDefFlags(PackHnd PackDataHnd, SWORD CanFind, SWORD CanFill, SWORD CanList, SWORD CanEdit, SWORD ListOnActivate, SWORD ListOnKeystroke)
  137. {
  138.     (*PackDataHnd)->DefFlags.CanFind = (CanFind != 0);
  139.     (*PackDataHnd)->DefFlags.CanFill = (CanFill != 0);
  140.     (*PackDataHnd)->DefFlags.CanList = ((CanList || ListOnActivate || ListOnKeystroke) != 0);
  141.     (*PackDataHnd)->DefFlags.CanEdit = (CanEdit != 0);
  142.     (*PackDataHnd)->DefFlags.ListOnActivate = (ListOnActivate != 0);
  143.     (*PackDataHnd)->DefFlags.ListOnKeystroke = (ListOnKeystroke != 0);
  144. } 
  145.  
  146.  
  147. //---------------------------------------------------------------------------------
  148. //
  149. // FUNCTION: CB_SetTxtFnt
  150. //
  151. //---------------------------------------------------------------------------------
  152.  
  153. void CB_SetTxtFnt(AreaHnd AreaDataHnd, SWORD FontNum, SWORD FontSize, SWORD FontStyle)
  154. {
  155.     TEHandle    text;
  156.     
  157.     (*AreaDataHnd)->TextFont = FontNum;
  158.     (*AreaDataHnd)->TextSize = FontSize;
  159.     (*AreaDataHnd)->TextStyle = FontStyle;
  160.     
  161.     text = (*AreaDataHnd)->TextTEHnd;
  162.     (*text)->txFont = FontNum;
  163.     (*text)->txSize = FontSize;
  164.     (*text)->txFace = FontStyle;
  165.     
  166.     InvalRect(&((*AreaDataHnd)->AreaRect));
  167. }
  168.  
  169.  
  170. //---------------------------------------------------------------------------------
  171. //
  172. // FUNCTION: CB_SetTxtCol
  173. //
  174. //---------------------------------------------------------------------------------
  175.  
  176. void CB_SetTxtCol(AreaHnd AreaDataHnd, SWORD ForeColor, SWORD BackColor)
  177. {
  178.     (*AreaDataHnd)->TextFGColor = ForeColor;
  179.     (*AreaDataHnd)->TextBGColor = BackColor;
  180.     InvalRect(&((*AreaDataHnd)->AreaRect));
  181. }
  182.  
  183.  
  184. //---------------------------------------------------------------------------------
  185. //
  186. // FUNCTION: CB_SetLstFnt
  187. //
  188. //---------------------------------------------------------------------------------
  189.  
  190. void CB_SetLstFnt(AreaHnd AreaDataHnd, SWORD FontNum, SWORD FontSize, SWORD FontStyle)
  191. {
  192.     AreaPtr    AreaDataPtr;
  193.     
  194.     HLock((Handle)AreaDataHnd);
  195.     AreaDataPtr = *AreaDataHnd;
  196.  
  197.     AreaDataPtr->ListFont = FontNum;
  198.     AreaDataPtr->ListSize = FontSize;
  199.     AreaDataPtr->ListStyle = FontStyle;
  200.     RedrawList(AreaDataPtr);
  201.     HUnlock((Handle)AreaDataHnd);
  202. }
  203.  
  204.  
  205. //---------------------------------------------------------------------------------
  206. //
  207. // FUNCTION: CB_SetLstCol
  208. //
  209. //---------------------------------------------------------------------------------
  210.  
  211. void CB_SetLstCol(AreaHnd AreaDataHnd, SWORD ForeColor, SWORD BackColor)
  212. {
  213.     AreaPtr    AreaDataPtr;
  214.     
  215.     HLock((Handle)AreaDataHnd);
  216.     AreaDataPtr = *AreaDataHnd;
  217.  
  218.     AreaDataPtr->ListFGColor = ForeColor;
  219.     AreaDataPtr->ListBGColor = BackColor;
  220.     RedrawList(AreaDataPtr);
  221.     HUnlock((Handle)AreaDataHnd);
  222. }
  223.  
  224.  
  225. //---------------------------------------------------------------------------------
  226. //
  227. // FUNCTION: CB_SetLstRws
  228. //
  229. //---------------------------------------------------------------------------------
  230.  
  231. void CB_SetLstRws(AreaHnd AreaDataHnd, SWORD Rows)
  232. {
  233.     AreaPtr    AreaDataPtr;
  234.     
  235.     HLock((Handle)AreaDataHnd);
  236.     AreaDataPtr = *AreaDataHnd;
  237.  
  238.     AreaDataPtr->ListRows = Rows;
  239.     CalcListRect(AreaDataPtr);
  240.     //••••• RESIZE THE WINDOW IF IT'S OPEN
  241.     RedrawList(AreaDataPtr);
  242.     HUnlock((Handle)AreaDataHnd);
  243. }
  244.  
  245.  
  246. //---------------------------------------------------------------------------------
  247. //
  248. // FUNCTION: CB_GetLstRws
  249. //
  250. //---------------------------------------------------------------------------------
  251.  
  252. SLONG CB_GetLstRws(AreaHnd AreaDataHnd)
  253. {
  254.     return (*AreaDataHnd)->ListRows;
  255. }
  256.  
  257.  
  258. //---------------------------------------------------------------------------------
  259. //
  260. // FUNCTION: CB_SetPopPic
  261. //
  262. //---------------------------------------------------------------------------------
  263.  
  264. void CB_SetPopPic(AreaHnd AreaDataHnd, SWORD CUp, SWORD CDown, SWORD CDis, SWORD MUp, SWORD MDown, SWORD MDis)
  265. {
  266.     AreaPtr    AreaDataPtr;
  267.     
  268.     HLock((Handle)AreaDataHnd);
  269.     AreaDataPtr = *AreaDataHnd;
  270.  
  271.     AreaDataPtr->CPICTResUp = CUp;
  272.     AreaDataPtr->CPICTResDn = CDown;
  273.     AreaDataPtr->CPICTResDis = CDis;
  274.     AreaDataPtr->MPICTResUp = MUp;
  275.     AreaDataPtr->MPICTResDn = MDown;
  276.     AreaDataPtr->MPICTResDis = MDis;
  277.     InitAreaPICT(AreaDataPtr);
  278.     CalcTextRect(AreaDataPtr);
  279.     InvalRect(&(AreaDataPtr->AreaRect));
  280.     HUnlock((Handle)AreaDataHnd);
  281. }
  282.  
  283.  
  284. //---------------------------------------------------------------------------------
  285. //
  286. // FUNCTION: CB_SetGap
  287. //
  288. //---------------------------------------------------------------------------------
  289.  
  290. void CB_SetGap(AreaHnd AreaDataHnd, SWORD Pict, SWORD Top, SWORD Left, SWORD Right)
  291. {
  292.     AreaPtr    AreaDataPtr;
  293.  
  294.     HLock((Handle)AreaDataHnd);
  295.     AreaDataPtr = *AreaDataHnd;
  296.     
  297.     AreaDataPtr->PixGap = Pict;
  298.     AreaDataPtr->TopGap = Top;
  299.     AreaDataPtr->LeftGap = Left;
  300.     AreaDataPtr->RightGap = Right;
  301.     CalcTextRect(AreaDataPtr);
  302.     CalcListRect(AreaDataPtr);
  303.     InvalRect(&(AreaDataPtr->AreaRect));
  304.     HUnlock((Handle)AreaDataHnd);
  305. }
  306.  
  307.  
  308. //---------------------------------------------------------------------------------
  309. //
  310. // FUNCTION: CB_SetLead
  311. //
  312. //---------------------------------------------------------------------------------
  313.  
  314. void CB_SetLead(AreaHnd AreaDataHnd, SWORD Lead)
  315. {
  316.     (*AreaDataHnd)->PixLead = Lead;
  317.     HLock((Handle)AreaDataHnd);
  318.     CalcTextRect(*AreaDataHnd);
  319.     HUnlock((Handle)AreaDataHnd);
  320.     InvalRect(&((*AreaDataHnd)->AreaRect));
  321. }
  322.  
  323.  
  324. //---------------------------------------------------------------------------------
  325. //
  326. // FUNCTION: CB_SetFlags
  327. //
  328. //---------------------------------------------------------------------------------
  329.  
  330. void CB_SetFlags(AreaHnd AreaDataHnd, SWORD CanFind, SWORD CanFill, SWORD CanList, SWORD CanEdit, SWORD ListOnActivate, SWORD ListOnKeystroke)
  331. {
  332.     (*AreaDataHnd)->Flags.CanFind = (CanFind != 0);
  333.     (*AreaDataHnd)->Flags.CanFill = (CanFill != 0);
  334.     (*AreaDataHnd)->Flags.CanList = ((CanList || ListOnActivate || ListOnKeystroke) != 0);
  335.     (*AreaDataHnd)->Flags.CanEdit = (CanEdit != 0);
  336.     (*AreaDataHnd)->Flags.ListOnActivate = (ListOnActivate != 0);
  337.     (*AreaDataHnd)->Flags.ListOnKeystroke = (ListOnKeystroke != 0);
  338. } 
  339.  
  340.  
  341. //---------------------------------------------------------------------------------
  342. //
  343. // FUNCTION: CB_FillLst
  344. //
  345. //---------------------------------------------------------------------------------
  346.  
  347. void CB_FillLst(AreaHnd AreaDataHnd, UBYTE* ListArrName)
  348. {
  349.     // For Windows compatibility, interprocess variables can
  350.     // start with '◊' (InterProcChar) or '<>'.
  351.     if((((SBYTE*)ListArrName)[1]) == InterProcChar)
  352.     {
  353.         (*AreaDataHnd)->Flags.InterprocArr = true;
  354.         (*AreaDataHnd)->ListArrName[0] = ListArrName[0]-1;
  355.         BlockMove(&(((SBYTE*)ListArrName)[2]),&(((SBYTE*)((*AreaDataHnd)->ListArrName))[1]),(*AreaDataHnd)->ListArrName[0]);
  356.     }
  357.     else if (((((SBYTE*)ListArrName)[1]) == '<') && (*((char*)ListArrName+2) == '>'))
  358.     {
  359.         (*AreaDataHnd)->Flags.InterprocArr = true;
  360.         (*AreaDataHnd)->ListArrName[0] = ListArrName[0]-2;
  361.         BlockMove(&(((SBYTE*)ListArrName)[3]),&(((SBYTE*)((*AreaDataHnd)->ListArrName))[1]),(*AreaDataHnd)->ListArrName[0]);
  362.     }
  363.     else
  364.     {
  365.         (*AreaDataHnd)->Flags.InterprocArr = false;
  366.         BlockMove(ListArrName,(*AreaDataHnd)->ListArrName,ListArrName[0]+1);
  367.     }    
  368.     CB_UpdateLst(AreaDataHnd);
  369. }
  370.  
  371.  
  372. //---------------------------------------------------------------------------------
  373. //
  374. // FUNCTION: CB_UpdateLst
  375. //
  376. //---------------------------------------------------------------------------------
  377.  
  378. void CB_UpdateLst(AreaHnd AreaDataHnd)
  379. {
  380.     HLock((Handle)AreaDataHnd);
  381.     ListSynchronize(*AreaDataHnd);
  382.     HUnlock((Handle)AreaDataHnd);
  383. }
  384.  
  385.  
  386. //---------------------------------------------------------------------------------
  387. //
  388. // FUNCTION: CB_SetLstPos
  389. //
  390. //---------------------------------------------------------------------------------
  391.  
  392. void CB_SetLstPos(AreaHnd AreaDataHnd, SWORD Position)
  393. {
  394.     SWORD                offset,len;
  395.     ListHandle    list;
  396.     TEHandle        text;
  397.     Cell                CurrCell;
  398.     Ptr                    TextPtr;
  399.     
  400.     CurrCell.v = 0;
  401.     CurrCell.h = 0;
  402.     list = (*AreaDataHnd)->ListHnd;
  403.     text = (*AreaDataHnd)->TextTEHnd;
  404.     while(LGetSelect(true, &CurrCell,list))
  405.         LSetSelect(false,CurrCell,list);
  406.     if ((Position>0) && (Position <=(*list)->dataBounds.bottom))
  407.     {
  408.         CurrCell.v = Position-1;
  409.         LSetSelect(true,CurrCell,list);
  410.         LAutoScroll(list);
  411.         LGetCellDataLocation(&offset,&len,CurrCell,list);
  412.         TextPtr = NewPtr(len+1);
  413.         if((*AreaDataHnd)->Flags.Active)
  414.             TEDeactivate(text);
  415.         LGetCell(TextPtr,&len,CurrCell,list);
  416.         TESetText(TextPtr, (long) len, text);
  417.         DisposePtr(TextPtr);
  418.         if((*AreaDataHnd)->Flags.Active)
  419.         {
  420.             TESetSelect(0,32767,text);
  421.             TEActivate(text);
  422.         }
  423.     }
  424.     else
  425.         TESetText(NULL,0,text); // wipe out the text if there's no element
  426.         
  427.     InvalRect(&(*AreaDataHnd)->AreaRect);
  428. }
  429.  
  430.  
  431. //---------------------------------------------------------------------------------
  432. //
  433. // FUNCTION: CB_GetLstPos
  434. //
  435. //---------------------------------------------------------------------------------
  436.  
  437. SLONG CB_GetLstPos(AreaHnd AreaDataHnd)
  438. {
  439.     Cell    CurrCell;
  440.     
  441.     CurrCell.v = 0;
  442.     CurrCell.h = 0;
  443.     
  444.     if(LGetSelect(true,&CurrCell,(*AreaDataHnd)->ListHnd))
  445.         return (SWORD)CurrCell.v+1;
  446.     else
  447.         return 0;
  448. }
  449.  
  450.  
  451. //---------------------------------------------------------------------------------
  452. //
  453. // FUNCTION: CB_SetTxt
  454. //
  455. //---------------------------------------------------------------------------------
  456.  
  457. void CB_SetTxt(AreaHnd AreaDataHnd, TextBlock* TextText)
  458. {
  459.     GrafPtr    savePort;
  460.     
  461.     if(TextText->fData != NULL)
  462.     {
  463.         HLock((Handle)(TextText->fData));
  464.         TESetText(*(TextText->fData), (long) TextText->fSize, (*AreaDataHnd)->TextTEHnd);
  465.         HUnlock((Handle)(TextText->fData));
  466.     }
  467.     else
  468.         TESetText(NULL,0,(*AreaDataHnd)->TextTEHnd);
  469.     if((*AreaDataHnd)->Flags.Active)
  470.         TESetSelect(0,32767,(*AreaDataHnd)->TextTEHnd);
  471.     GetPort(&savePort);
  472.     SetPort((*AreaDataHnd)->AreaGrafPort);
  473.     InvalRect(&(*AreaDataHnd)->AreaRect);
  474.     SetPort(savePort);
  475. }
  476.  
  477.  
  478. //---------------------------------------------------------------------------------
  479. //
  480. // FUNCTION: CB_GetTxt
  481. //
  482. //---------------------------------------------------------------------------------
  483.  
  484. void CB_GetTxt(AreaHnd AreaDataHnd, TextBlock* TextText)
  485. {
  486.     TextText->fSize = (*((*AreaDataHnd)->TextTEHnd))->teLength;
  487.     SetHandleSize(TextText->fData,TextText->fSize);
  488.     HLock((*((*AreaDataHnd)->TextTEHnd))->hText);
  489.     HLock(TextText->fData);
  490.     BlockMove(*((*((*AreaDataHnd)->TextTEHnd))->hText),*(TextText->fData),TextText->fSize);
  491.     HUnlock(TextText->fData);
  492.     HUnlock((*((*AreaDataHnd)->TextTEHnd))->hText);
  493. }
  494.  
  495.  
  496. //---------------------------------------------------------------------------------
  497. //
  498. // FUNCTION: CB_SetModified
  499. //
  500. //---------------------------------------------------------------------------------
  501.  
  502. void CB_SetModified(AreaHnd AreaDataHnd, SWORD Modified)
  503. {
  504.     (*AreaDataHnd)->Flags.Modified = (Modified != 0);
  505. }
  506.  
  507.  
  508. //---------------------------------------------------------------------------------
  509. //
  510. // FUNCTION: CB_GetModified
  511. //
  512. //---------------------------------------------------------------------------------
  513.  
  514. SLONG CB_GetModified(AreaHnd AreaDataHnd)
  515. {
  516.     if((*AreaDataHnd)->Flags.Modified)
  517.         return 1;
  518.     else
  519.         return 0;
  520. }
  521.  
  522.  
  523. //---------------------------------------------------------------------------------
  524. //
  525. // FUNCTION: CB_SetEnabled
  526. //
  527. //---------------------------------------------------------------------------------
  528.  
  529. void CB_SetEnabled(AreaHnd AreaDataHnd, SWORD Enabled)
  530. {
  531.     if ((SWORD)(*AreaDataHnd)->Flags.Enabled != Enabled)
  532.     {
  533.         (*AreaDataHnd)->Flags.Enabled = (Enabled != 0);
  534.         InvalRect(&((*AreaDataHnd)->AreaRect));
  535.     }
  536. }
  537.  
  538.  
  539. //---------------------------------------------------------------------------------
  540. //
  541. // FUNCTION: CB_GetEnabled
  542. //
  543. //---------------------------------------------------------------------------------
  544.  
  545. SLONG CB_GetEnabled(AreaHnd AreaDataHnd)
  546. {
  547.     if((*AreaDataHnd)->Flags.Enabled)
  548.         return 1;
  549.     else
  550.         return 0;
  551. }
  552.  
  553.  
  554. //---------------------------------------------------------------------------------
  555. //
  556. // FUNCTION: CB_SetHilite
  557. //
  558. //---------------------------------------------------------------------------------
  559.  
  560. void CB_SetHilite(AreaHnd AreaDataHnd, SWORD Start, SWORD End)
  561. {
  562.     TESetSelect((long)Start,(long)End,(*AreaDataHnd)->TextTEHnd);
  563.     InvalRect(&((*AreaDataHnd)->AreaRect));
  564. }
  565.  
  566.  
  567. //---------------------------------------------------------------------------------
  568. //
  569. // FUNCTION: CB_GetHilite
  570. //
  571. //---------------------------------------------------------------------------------
  572.  
  573. void CB_GetHilite(AreaHnd AreaDataHnd, SWORD* Start, SWORD* End)
  574. {
  575.     *Start = ((*((*AreaDataHnd)->TextTEHnd))->selStart);
  576.     *End = ((*((*AreaDataHnd)->TextTEHnd))->selEnd);
  577. }
  578.  
  579.  
  580. //---------------------------------------------------------------------------------
  581. //
  582. // FUNCTION: CB_GetFontNum
  583. //
  584. //---------------------------------------------------------------------------------
  585.  
  586. SLONG CB_GetFontNum(UBYTE* FontName)
  587. {
  588.     SWORD FontNum;
  589.     SLONG    LongFontNum;
  590.     GetFNum((ConstStr255Param) FontName,&FontNum);
  591.     LongFontNum = FontNum;
  592.     return (LongFontNum);
  593. }
  594.  
  595.  
  596. //---------------------------------------------------------------------------------
  597. //
  598. // FUNCTION: ListSynchronize
  599. //
  600. //---------------------------------------------------------------------------------
  601.  
  602. void ListSynchronize(AreaPtr AreaDataPtr)
  603. {
  604.     ValueBlock            ArrValBlock;
  605.     ParameterBlock    block;
  606.     SLONG                        ListElems,index;
  607.     ListHandle            List;
  608.     XHANDLE                    ArrDataHnd;
  609.     TextPtr                    ArrElemPtr;
  610.     Cell                        whichCell;
  611.     
  612.     block.fH = (XHANDLE)&ArrValBlock;
  613.     Pstrcpy(AreaDataPtr->ListArrName,block.fName);
  614.     if(AreaDataPtr->Flags.InterprocArr)
  615.     {
  616.         CALL4D(kEX_GET_GLOBALVAR,&block);
  617.     }
  618.     else
  619.         CALL4D(kEX_GET_VARIABLE,&block);
  620.                 
  621.     AreaDataPtr->ArrElems = ArrValBlock.uValue.fArray.fSize;
  622.     ArrDataHnd = ArrValBlock.uValue.fArray.fData;
  623.         
  624.     List = AreaDataPtr->ListHnd;
  625.     if(List)
  626.     {
  627.         ListElems = (*List)->dataBounds.bottom;
  628.         if(AreaDataPtr->ArrElems<ListElems)
  629.             LDelRow(ListElems-AreaDataPtr->ArrElems,1,List);
  630.         else if(AreaDataPtr->ArrElems>ListElems)
  631.             LAddRow(AreaDataPtr->ArrElems-ListElems,1,List);
  632.     
  633.         HLock((Handle)ArrDataHnd);
  634.         whichCell.h = 0;
  635.         for (index = 1; index<=AreaDataPtr->ArrElems; index++)
  636.         {
  637.             ArrElemPtr = NthTElemAdr(ArrDataHnd,index);
  638.             whichCell.v = index-1; // Cells are zero-relative
  639.             HLock((Handle)(ArrElemPtr->fData));
  640.             LSetCell(*(ArrElemPtr->fData),ArrElemPtr->fSize,whichCell,List);
  641.             if(MemError())
  642.                 SysBeep(10);
  643.             HUnlock((Handle)(ArrElemPtr->fData));
  644.         }
  645.         HUnlock((Handle)ArrDataHnd);
  646.     }
  647. }